home *** CD-ROM | disk | FTP | other *** search
- ;
- ;Mal sehen welche CD im Laufwerk liegt
- ;
- ; FreshFish-May94
- ; oder FreshFish-Sep94
- ;
- ; wenn keine von beiden vorliegt mache ich auch keine Assign's :-))
- ;
- ; Mir liegen nur die beiden oben genanten CD's vor, aber es dürfte ja
- ; kein prob darstellen die CD Abfrage zu erweitern.
- ;
-
- ;/// "Welche CD ?"
-
- assign FreshFish-May94: exists >NIL:
- IF NOT WARN
- Assign GNU: FreshFish-May94:GNU
- endif
-
- assign "FreshFish-Sep94:" exists >NIL:
- IF NOT WARN
- Assign GNU: FreshFish-Sep94:GNU
- endif
-
- ;\\\
-
- ;/// "Assign's"
-
- Assign "GNU:" exists >NIL:
- IF NOT WARN
-
- assign LOCAL: exists >NIL:
- if WARN
- assign LOCAL: T:
- endif
-
- assign BIN: GNU:bin
- assign ETC: GNU:etc
- assign INFO: GNU:info
- assign MAN: GNU:man
-
- path GNU:bin ADD
-
- assign DEVS: GNU:Sys/Devs ADD
- assign LIBS: GNU:Sys/Libs ADD
- assign L: GNU:Sys/L ADD
- assign S: GNU:Sys/S ADD
-
- assign TMP: T:
-
- Assign "IXPIPE:" exists >NIL:
- IF WARN
- mount IXPIPE: from DEVS:MountList.IXPIPE
- endif
-
- assign GNUemacs: GNU:lib/emacs/18.59
- assign S: GNU:Sys/S ADD
- unalias emacs
- setenv ESHELL GNUemacs:etc/sh
-
- run <nil: >nil: GNU:Sys/L/fifo-handler
-
- endif
-
- ;\\\
-
-